home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / utilities / u303.dms / in.adf / DeleteBackUp_doc.ASC < prev    next >
Encoding:
Text File  |  1990-11-07  |  2.6 KB  |  58 lines
  1. '      ********************************************  
  2. '      *          DeleteBackUp_doc.ASC            *  
  3. '      * by Alan F Pfeil for free distribution by *  
  4. '      *  the AMOS Public Domain Library 30-10-90 *  
  5. '      ********************************************  
  6. '
  7. '  A Utility to Delete all those disk eating .bak Files. 
  8. ' You can load it as an accessory by changing the .AMOS to .acc
  9. ' The program is fully documented but this is provided in case 
  10. ' you want to strip out the Rems to save memory. 
  11. '
  12. '  Note: For Safety, only .bak files are displayed by default. 
  13. '   Other files can be shown or deleted by erasing  '*.bak'
  14. '   from the Requestor window  and pressing the Return key.
  15. '
  16. '  Operating Instructions. 
  17. '      Alter lines 40 to 42 to suit your setup, and run, 
  18. '  Select any file and then Clik the Right Mouse button to show  
  19. ' the existing free disk space, or the Left Mouse button to select 
  20. ' the Drive, Directory and File from the File Requestor. 
  21. '     The program will then display your selection and ask for 
  22. ' confirmation, then delete it and show the disk space left free,
  23. ' and offer the option to quit or a further deletion.
  24. '     If no file is selected you will be returned to Edit mode.
  25. '
  26. '     The following lines are provided to activate the file
  27. ' requestor, edit them to suit your Drive setup or Directory 
  28. ' usage. Leave one active and 'Rem' or delete the other two. 
  29. '
  30.   F$=Fsel$("DF0:*.bak","","Kill a Bak_up prog")
  31. Rem F$=Fsel$("DF1:Amos_Progs/*.bak","","Kill a Bak_up prog") 
  32. Rem F$=Fsel$("RAD:Amos_Progs/*.bak","","Kill a Bak_up prog") 
  33. '
  34. ' The program quotes to the screen the full path and filename selected.
  35. '    As this may overflow a screen line they are shown on seperate 
  36. ' lines, viz:    
  37.  Locate 1,3 : Ink 3,0 : Print " DELETE Program: ";Left$(F$,8);" "
  38.  Print " "+Mid$(F$,9)+" "
  39. '    You may want to alter the '8' or '9' to give a better layout
  40. ' so that a long filename comes on a seperate line.
  41. '
  42. '    Control is by means of Zones and the one active is visually 
  43. ' confirmed by its number being shown in the top left corner of
  44. ' the screen.
  45. '
  46. '    Once a file has been selected, a RightMouse Clik will show  
  47. ' the Free Disk Space without deleting the file; a second Clik 
  48. ' will quit to Edit. 
  49. '
  50. '   After deletion the free disk space in bytes is automatically 
  51. ' displayed, and a LeftMouse Clik will recall the File Requestor 
  52. ' regardless of where the pointer is located.    
  53. '    NB. This is the free space on the Disk in the Drive called  
  54. ' by lines 40, 41 or 42 as above; not necessarily the one from 
  55. ' which you delete a file, or the current directory disk, if the 
  56. ' selection was changed from the Requestor.
  57. 'AFP 
  58.